home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / HOCHSPANNUNG.LST < prev    next >
File List  |  1989-06-01  |  215b  |  19 lines
  1. ' HOCHSPANNUNG
  2. @init
  3. @rausch
  4. '
  5. REPEAT
  6.   SOUND 30,0.5,100,0
  7. UNTIL MOUSEK=1
  8. END
  9. '
  10. PROCEDURE init
  11.   DIM wert&(255)
  12. RETURN
  13. PROCEDURE rausch
  14.   FOR i%=0 TO 255
  15.     wert&(i%)=INT(RND*127)
  16.   NEXT i%
  17.   WAVE 0,wert&()
  18. RETURN
  19.